home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / vol6n10.arc / MAKEBAR.BAS < prev    next >
BASIC Source File  |  1987-05-11  |  20KB  |  280 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE MAKEBAR.COM
  2. 110 OPEN "MAKEBAR.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  260 
  6. 150    LINESUM = 0
  7. 160    FOR J = 1 TO 8
  8. 170       READ BYTE
  9. 180       CHECKSUM = CHECKSUM + BYTE
  10. 190       LINESUM = LINESUM + BYTE
  11. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  12. 210       PUT #1
  13. 220    NEXT J
  14. 230    READ LINECHECK
  15. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  16. 250 NEXT I
  17. 260 CLOSE
  18. 270 IF CHECKSUM = 206640 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,    90,     2,    77,    65,    75,    69,    66,   677
  21. 300 DATA     65,    82,    32,    49,    46,    48,    32,    40,   394
  22. 310 DATA     99,    41,    32,    49,    57,    56,    55,    44,   433
  23. 320 DATA     32,    90,   105,   102,   102,    45,    68,    97,   641
  24. 330 DATA    118,   105,   115,    32,    80,   117,    98,   108,   773
  25. 340 DATA    105,   115,   104,   105,   110,   103,    32,    67,   741
  26. 350 DATA    111,   114,   112,    13,    10,    36,    26,    82,   504
  27. 360 DATA    111,    98,   101,   114,   116,    32,    76,    46,   694
  28. 370 DATA     32,    72,   117,   109,   109,   101,   108,     0,   648
  29. 380 DATA      0,     0,     0,   255,   255,     0,     0,     0,   510
  30. 390 DATA      0,     0,     0,     0,   255,     0,    65,    83,   403
  31. 400 DATA     75,     0,    67,    82,     0,    69,    88,    69,   450
  32. 410 DATA     67,    85,    84,    69,     0,    73,    78,    80,   536
  33. 420 DATA     85,    84,     0,    77,    69,    78,    85,     0,   478
  34. 430 DATA     79,    80,    84,    73,    79,    78,     0,    80,   553
  35. 440 DATA     82,    79,    71,    82,    65,    77,     0,    84,   540
  36. 450 DATA     89,    80,    69,     0,    77,    69,    78,    68,   530
  37. 460 DATA      0,    69,    78,    68,     0,     0,    83,     0,   298
  38. 470 DATA     67,     0,    65,     0,    70,    49,     0,    70,   321
  39. 480 DATA     50,     0,    70,    51,     0,    70,    52,     0,   293
  40. 490 DATA     70,    53,     0,    70,    54,     0,    70,    55,   372
  41. 500 DATA      0,    70,    56,     0,    70,    57,     0,    70,   323
  42. 510 DATA     49,    48,     0,    69,    83,    67,     0,    84,   400
  43. 520 DATA     65,    66,     0,    69,    78,    84,    69,    82,   513
  44. 530 DATA      0,    66,    83,     0,    72,    79,    77,    69,   446
  45. 540 DATA      0,    80,    71,    85,    80,     0,    69,    78,   463
  46. 550 DATA     68,     0,    80,    71,    68,    78,     0,    73,   438
  47. 560 DATA     78,    83,     0,    68,    69,    76,     0,    85,   459
  48. 570 DATA      0,    68,     0,    76,     0,    82,     0,     0,   226
  49. 580 DATA     65,    66,    67,    68,    69,    70,    71,    72,   548
  50. 590 DATA     73,    74,    75,    76,    77,    78,    79,    80,   612
  51. 600 DATA     81,    82,    83,    84,    85,    86,    87,    88,   676
  52. 610 DATA     89,    90,    49,    50,    51,    52,    53,    54,   488
  53. 620 DATA     55,    56,    57,    48,    45,    61,    92,    91,   505
  54. 630 DATA     93,     0,    59,     0,     3,   254,    34,     0,   443
  55. 640 DATA      0,     0,     0,     0,    30,     0,     0,     0,    30
  56. 650 DATA      0,     0,     0,     0,     0,     0,    31,     0,    31
  57. 660 DATA      0,     0,    28,     0,    27,     0,    29,     0,    84
  58. 670 DATA     30,    48,    46,    32,    18,    33,    34,    35,   276
  59. 680 DATA     23,    36,    37,    38,    50,    49,    24,    25,   282
  60. 690 DATA     16,    19,    31,    20,    22,    47,    17,    45,   217
  61. 700 DATA     21,    44,    13,   254,     8,   127,    71,   119,   657
  62. 710 DATA     73,   132,    79,   117,    81,   118,    82,     0,   682
  63. 720 DATA     83,     0,    72,     0,    80,     0,    75,   115,   425
  64. 730 DATA     77,   116,     0,     0,     0,    85,   115,    97,   490
  65. 740 DATA    103,   101,    58,    32,    77,    65,    75,    69,   580
  66. 750 DATA     66,    65,    82,    32,    91,   112,    97,   116,   661
  67. 760 DATA    104,    93,   105,   110,   112,   117,   116,    95,   852
  68. 770 DATA    102,   105,   108,   101,    32,    91,   112,    97,   748
  69. 780 DATA    116,   104,    93,   111,   117,   116,   112,   117,   886
  70. 790 DATA    116,    95,   102,   105,   108,   101,    36,    67,   730
  71. 800 DATA     97,   110,    39,   116,    32,    79,   112,   101,   686
  72. 810 DATA    110,    32,    70,   105,   108,   101,    36,    69,   631
  73. 820 DATA    114,   114,   111,   114,    32,    82,   101,    97,   765
  74. 830 DATA    100,   105,   110,   103,    32,    70,   105,   108,   733
  75. 840 DATA    101,    36,    68,   117,   112,   108,   105,    99,   746
  76. 850 DATA     97,   116,   101,    32,    67,   109,   100,    36,   658
  77. 860 DATA     67,   109,   100,    32,    79,   117,   116,    32,   652
  78. 870 DATA     79,   102,    32,    79,   114,   100,   101,   114,   721
  79. 880 DATA     36,    85,   110,   107,   110,   111,   119,   110,   788
  80. 890 DATA     32,    67,   109,   100,    36,    77,    69,    78,   568
  81. 900 DATA     85,    32,    87,   105,   116,   104,   111,   117,   757
  82. 910 DATA    116,    32,    77,    69,    78,    68,    36,    83,   559
  83. 920 DATA    121,   110,   116,    97,   120,    32,    69,   114,   779
  84. 930 DATA    114,   111,   114,    36,    77,   105,   115,   115,   787
  85. 940 DATA    105,   110,   103,    32,    78,    97,   109,   101,   735
  86. 950 DATA     36,    66,    97,   100,    32,    77,    69,    78,   555
  87. 960 DATA     85,    32,    82,   101,   102,   101,   114,   101,   718
  88. 970 DATA    110,    99,   101,    36,    77,   105,   115,   115,   758
  89. 980 DATA    105,   110,   103,    32,    69,    78,    68,    36,   601
  90. 990 DATA     68,   101,    97,   100,    45,    75,   101,   121,   708
  91. 1000 DATA    32,   111,   114,    32,    66,    97,   100,    32,   584
  92. 1010 DATA    75,   101,   121,    36,    13,    10,    69,   114,   539
  93. 1020 DATA   114,   111,   114,    32,    65,   116,    32,    76,   660
  94. 1030 DATA   105,   110,   101,    32,    35,    32,    32,    32,   479
  95. 1040 DATA    32,    32,    32,    32,    36,   180,     9,   186,   539
  96. 1050 DATA     3,     1,   205,    33,   252,   232,    11,     0,   737
  97. 1060 DATA   232,   111,     0,   232,    91,     0,   184,     0,   850
  98. 1070 DATA    76,   205,    33,   190,   129,     0,   232,    17,   882
  99. 1080 DATA     0,   163,    71,     1,   232,    11,     0,   163,   641
  100. 1090 DATA    77,     1,   199,     6,    75,     1,     0,     0,   359
  101. 1100 DATA   195,     0,   232,   111,     2,    60,    13,   117,   730
  102. 1110 DATA     6,   186,   101,     2,   233,    28,     2,    86,   644
  103. 1120 DATA   232,    78,     2,   139,   206,    94,    43,   206,  1000
  104. 1130 DATA    11,   201,   116,   237,   191,    31,     9,   243,  1039
  105. 1140 DATA   164,    50,   192,   170,   184,     0,    61,   128,   949
  106. 1150 DATA    62,   137,     3,     0,   116,     2,   254,   204,   778
  107. 1160 DATA   186,    31,     9,   205,    33,   115,     5,   186,   770
  108. 1170 DATA   151,     2,   235,   208,   254,     6,   137,     3,   996
  109. 1180 DATA   195,   180,    62,   139,    30,    71,     1,   205,   883
  110. 1190 DATA    33,   180,    62,   139,    30,    77,     1,   205,   727
  111. 1200 DATA    33,   195,    51,   192,   162,   100,     2,   162,   897
  112. 1210 DATA    98,     2,   163,    82,     1,   191,    79,   220,   836
  113. 1220 DATA   185,   160,    15,   243,   170,   232,   135,     4,  1144
  114. 1230 DATA   191,   255,    24,   232,     6,     2,    60,    13,   783
  115. 1240 DATA   117,     5,   232,    55,     2,   235,   244,   232,  1122
  116. 1250 DATA   189,     4,    86,   190,    86,     1,   232,   115,   903
  117. 1260 DATA     1,    94,    60,   255,   117,     5,   186,   217,   935
  118. 1270 DATA     2,   235,    75,   128,    62,   100,     2,     0,   604
  119. 1280 DATA   156,    60,     6,   116,     6,   157,   117,    32,   650
  120. 1290 DATA   233,   148,     0,   157,   116,     5,   186,   186,  1031
  121. 1300 DATA     2,   235,    51,   139,   223,   176,    32,   185,  1043
  122. 1310 DATA    10,     0,   243,   170,   232,   166,     1,   232,  1054
  123. 1320 DATA   189,     2,   254,     6,   100,     2,   235,   179,   967
  124. 1330 DATA    60,     9,   117,    45,   160,    98,     2,    10,   501
  125. 1340 DATA     6,    99,     2,   116,     5,   186,   229,     2,   645
  126. 1350 DATA   235,    12,   160,    84,     1,    10,     6,    85,   593
  127. 1360 DATA     1,   116,     6,   186,    17,     3,   233,    82,   644
  128. 1370 DATA     1,   186,   255,    24,   139,   207,    43,   202,  1057
  129. 1380 DATA   180,    64,   139,    30,    77,     1,   205,    33,   729
  130. 1390 DATA   195,    60,     4,   117,    46,   128,    62,    98,   710
  131. 1400 DATA     2,     0,   117,   209,   187,   175,   204,   137,  1031
  132. 1410 DATA    62,    79,     1,    51,   192,   171,   254,     6,   816
  133. 1420 DATA    98,     2,   232,    80,     1,    60,    13,   116,   602
  134. 1430 DATA    69,   232,    43,     4,   161,    79,     1,    45,   634
  135. 1440 DATA   255,    24,   232,   166,     1,   232,   148,     1,  1059
  136. 1450 DATA   233,    80,   255,   128,    62,    98,     2,     0,   858
  137. 1460 DATA   116,    13,   128,    62,    99,     2,     0,   156,   576
  138. 1470 DATA    60,     5,   116,     8,   157,   117,    79,   186,   728
  139. 1480 DATA   200,     2,   235,   162,   157,   116,     5,   176,  1053
  140. 1490 DATA    10,   232,    87,     4,   254,     6,    99,     2,   694
  141. 1500 DATA   139,    46,    79,     1,   255,    70,     0,   232,   822
  142. 1510 DATA    11,     1,    60,    13,   117,     5,   186,     4,   397
  143. 1520 DATA     3,   235,   131,   232,   225,     3,   139,   195,  1163
  144. 1530 DATA    45,   175,   204,   171,    86,   190,    31,     9,   911
  145. 1540 DATA   172,   232,    47,     4,    10,   192,   117,   248,  1022
  146. 1550 DATA    94,   232,   233,     0,   139,   195,    45,   175,  1113
  147. 1560 DATA   204,   171,   232,   250,     1,   139,   195,    45,  1237
  148. 1570 DATA   175,   204,   171,   233,   237,   254,    60,     8,  1342
  149. 1580 DATA   117,    65,   176,    10,   232,    12,     4,    86,   702
  150. 1590 DATA   139,    54,    79,     1,   173,   139,   200,   209,   994
  151. 1600 DATA   225,     3,   200,   227,    23,    81,   139,   193,  1091
  152. 1610 DATA    64,   209,   224,   139,    14,    79,     1,   129,   859
  153. 1620 DATA   233,   255,    24,     3,   193,    89,     1,     4,   802
  154. 1630 DATA    70,    70,   226,   250,   139,   203,   190,   175,  1323
  155. 1640 DATA   204,    43,   206,   243,   164,    94,   198,     6,  1158
  156. 1650 DATA    98,     2,     0,   198,     6,    99,     2,     0,   405
  157. 1660 DATA   233,   168,   254,   232,   205,     3,    60,     2,  1157
  158. 1670 DATA   117,    22,   232,   136,     0,    60,    13,   117,   697
  159. 1680 DATA     3,   233,   122,   255,   232,    96,     3,   184,  1128
  160. 1690 DATA   255,   255,   232,   222,     0,   233,   139,   254,  1590
  161. 1700 DATA    60,     0,   116,     7,    60,     7,   116,     3,   369
  162. 1710 DATA   233,   128,   254,   232,   103,     0,   232,   126,  1308
  163. 1720 DATA     1,   233,   119,   254,    87,    81,    82,    50,   907
  164. 1730 DATA   201,   128,    60,     0,   117,     8,   177,   255,   946
  165. 1740 DATA   138,   193,    90,    89,    95,   195,   139,   248,  1187
  166. 1750 DATA   232,     6,     0,   115,   243,   254,   193,   235,  1278
  167. 1760 DATA   232,   138,    21,    71,   138,    52,    70,    58,   780
  168. 1770 DATA   242,   116,    10,    78,   138,    52,    70,    10,   716
  169. 1780 DATA   246,   117,   249,   249,   195,    11,   210,   117,  1394
  170. 1790 DATA   232,   248,   195,   180,     9,   205,    33,   191,  1293
  171. 1800 DATA    91,     3,   161,    82,     1,   187,    10,     0,   535
  172. 1810 DATA    51,   210,   247,   243,   128,   194,    48,   136,  1257
  173. 1820 DATA    21,    79,    11,   192,   117,   242,   186,    68,   916
  174. 1830 DATA     3,   180,     9,   205,    33,   232,   241,   253,  1156
  175. 1840 DATA   184,   255,    76,   205,    33,   232,    52,     0,  1037
  176. 1850 DATA   115,     3,   232,     4,     0,   232,    20,     0,   606
  177. 1860 DATA   195,   138,     4,    60,    13,   116,    12,   232,   770
  178. 1870 DATA   237,     2,    60,    13,   116,     5,   232,    27,   692
  179. 1880 DATA     0,   114,   244,   195,   138,     4,    60,    13,   768
  180. 1890 DATA   116,    12,   232,   218,     2,    60,    13,   116,   769
  181. 1900 DATA     5,   232,     8,     0,   115,   244,   195,    32,   831
  182. 1910 DATA    44,    58,    10,     9,    80,    81,    87,   138,   507
  183. 1920 DATA     4,   185,     5,     0,   191,    15,     6,   242,   648
  184. 1930 DATA   174,   248,   116,     1,   249,    95,    89,    88,  1060
  185. 1940 DATA   195,    60,    97,   114,     6,    60,   122,   119,   773
  186. 1950 DATA     2,    44,    32,   195,   138,     4,    60,    13,   488
  187. 1960 DATA   116,     5,   232,   162,     2,   235,   247,   232,  1231
  188. 1970 DATA   157,     2,   195,    86,    87,    82,    81,    61,   751
  189. 1980 DATA   255,   255,   116,    84,   232,   141,     0,   115,  1198
  190. 1990 DATA    27,   254,     6,    84,     1,   185,   255,   255,  1067
  191. 2000 DATA   191,    31,     9,   138,    21,    71,   136,    20,   617
  192. 2010 DATA    70,    10,   210,   117,   246,   137,     4,   137,   931
  193. 2020 DATA    76,     2,   235,   107,   254,     6,    85,     1,   766
  194. 2030 DATA   139,    84,     2,   131,   250,   255,   116,     5,   982
  195. 2040 DATA   131,   250,   254,   117,     6,   186,    17,     3,   964
  196. 2050 DATA   233,    48,   255,   139,    60,   129,   199,   255,  1318
  197. 2060 DATA    24,   139,    13,   209,   225,     3,   249,    65,   927
  198. 2070 DATA   209,   225,     3,   249,     3,   124,     2,   137,   952
  199. 2080 DATA     5,   199,    68,     2,   254,   255,   235,    55,  1073
  200. 2090 DATA   232,    57,     0,   114,    29,   254,    14,    84,   784
  201. 2100 DATA     1,   139,    84,     2,   131,   250,   255,   117,   979
  202. 2110 DATA   204,   139,     4,   232,   101,     2,   138,   196,  1016
  203. 2120 DATA   232,    96,     2,   199,    68,     2,   254,   255,  1108
  204. 2130 DATA   235,    21,   254,    14,    85,     1,   161,    79,   850
  205. 2140 DATA     1,    45,   255,    24,   139,   203,   129,   233,  1029
  206. 2150 DATA   175,   204,   131,   195,     2,   235,   129,    89,  1160
  207. 2160 DATA    90,    95,    94,   195,    87,    82,   190,    79,   912
  208. 2170 DATA   220,   128,    60,     0,   117,     4,   249,    90,   868
  209. 2180 DATA    95,   195,   191,    31,     9,   232,   169,   254,  1176
  210. 2190 DATA   115,   245,   131,   198,     4,   235,   234,   128,  1290
  211. 2200 DATA    60,    34,   117,    13,    87,   198,     6,    81,   596
  212. 2210 DATA     1,     0,   232,   218,     1,    60,    13,   117,   642
  213. 2220 DATA     3,   233,   157,     0,    60,    34,   117,    10,   614
  214. 2230 DATA    50,   192,   232,     6,     2,   232,    28,   255,   997
  215. 2240 DATA    95,   195,    60,   123,   116,   123,   128,    62,   902
  216. 2250 DATA    81,     1,     0,   117,    18,    50,   228,    10,   505
  217. 2260 DATA   228,   116,     7,   134,   224,   232,   235,     1,  1177
  218. 2270 DATA   134,   224,   232,   230,     1,   235,   198,   128,  1382
  219. 2280 DATA    62,    81,     1,     1,   117,     6,   186,    48,   502
  220. 2290 DATA     3,   233,   111,   254,   232,   226,   254,   138,  1451
  221. 2300 DATA   224,   191,   232,     1,   139,   207,   138,     5,  1137
  222. 2310 DATA    71,    10,   192,   116,   233,    58,   196,   117,   993
  223. 2320 DATA   245,    79,   139,   199,    43,   193,    60,    25,   983
  224. 2330 DATA   118,    33,    44,    26,   128,    62,    81,     1,   493
  225. 2340 DATA     2,   116,     9,    60,    11,   119,   207,     5,   529
  226. 2350 DATA   120,   254,   235,   179,   208,   224,   191,    18,  1429
  227. 2360 DATA     2,     3,   248,   139,     5,    11,   192,   116,   716
  228. 2370 DATA   189,   235,   164,   128,    62,    81,     1,     4,   864
  229. 2380 DATA   116,     4,   254,   192,   235,   153,   191,    48,  1193
  230. 2390 DATA     2,     3,   248,   138,     5,   180,   254,   235,  1065
  231. 2400 DATA   142,   191,    31,     9,   232,    64,     1,    60,   730
  232. 2410 DATA   123,   117,    12,   129,   255,    31,     9,   116,   792
  233. 2420 DATA   137,   186,   247,     2,   233,     4,   254,    60,  1123
  234. 2430 DATA    34,   116,   246,    60,   125,   116,     6,   232,   935
  235. 2440 DATA   111,   254,   170,   235,   223,    50,   192,   170,  1405
  236. 2450 DATA    86,   190,   142,     1,   184,    31,     9,   232,   875
  237. 2460 DATA   178,   253,    94,    60,   255,   116,   218,    10,  1184
  238. 2470 DATA   192,   117,     8,   198,     6,    81,     1,     1,   604
  239. 2480 DATA   233,    39,   255,   254,   200,   117,     8,   198,  1304
  240. 2490 DATA     6,    81,     1,     2,   233,    27,   255,   254,   859
  241. 2500 DATA   200,   117,     8,   198,     6,    81,     1,     4,   615
  242. 2510 DATA   233,    15,   255,   254,   200,    60,     9,   119,  1145
  243. 2520 DATA    32,     4,    59,   138,    38,    81,     1,   128,   481
  244. 2530 DATA   252,     1,   117,     2,     4,    25,   128,   252,   781
  245. 2540 DATA     2,   117,     2,     4,    35,   128,   252,     4,   544
  246. 2550 DATA   117,     2,     4,    45,   180,   254,   233,    14,   849
  247. 2560 DATA   255,   128,    62,    81,     1,     4,   117,     3,   651
  248. 2570 DATA   233,    27,   255,    44,    10,   117,     5,   176,   867
  249. 2580 DATA    27,   233,     6,   255,   254,   200,   117,    25,  1117
  250. 2590 DATA   128,    62,    81,     1,     0,   116,    13,   128,   529
  251. 2600 DATA    62,    81,     1,     1,   117,   226,   184,    15,   687
  252. 2610 DATA   254,   233,   227,   254,   176,     9,   233,   233,  1619
  253. 2620 DATA   254,   254,   200,    50,   228,   191,    74,     2,  1253
  254. 2630 DATA   209,   224,     3,   248,   138,    54,    81,     1,   958
  255. 2640 DATA   128,   254,     2,   117,     1,    71,   138,    21,   732
  256. 2650 DATA    10,   210,   116,   188,   134,   194,   128,   250,  1230
  257. 2660 DATA     2,   116,   219,   119,     5,   128,   254,     2,   845
  258. 2670 DATA   117,   212,   180,   254,   233,   176,   254,    83,  1509
  259. 2680 DATA    81,    82,   180,    66,    50,   192,   139,    30,   820
  260. 2690 DATA    71,     1,    51,   201,   139,    22,    73,     1,   559
  261. 2700 DATA   205,    33,   114,    30,   180,    63,   139,    30,   794
  262. 2710 DATA    71,     1,   185,   160,    15,   190,    95,     9,   726
  263. 2720 DATA   139,   214,   131,    62,    73,     1,     0,   117,   737
  264. 2730 DATA     5,   198,     4,    32,    73,    66,   205,    33,   616
  265. 2740 DATA   115,     6,   186,   167,     2,   233,     3,   253,   965
  266. 2750 DATA     1,     6,    73,     1,    43,   214,     3,   194,   535
  267. 2760 DATA   163,    75,     1,    90,    89,    91,   195,    87,   791
  268. 2770 DATA   191,    31,     9,    87,   232,    77,   253,   115,   995
  269. 2780 DATA    15,   138,     4,    60,    13,   116,     9,   232,   587
  270. 2790 DATA    87,   253,   170,   232,     9,     0,   235,   236,  1222
  271. 2800 DATA    50,   192,   170,    88,    95,   195,     0,    80,   870
  272. 2810 DATA    70,   139,   198,    45,    95,     9,    59,     6,   621
  273. 2820 DATA    75,     1,    88,   114,    13,   232,   135,   255,   913
  274. 2830 DATA    11,   192,   117,     6,   186,    36,     3,   233,   784
  275. 2840 DATA   185,   252,   138,     4,    60,    13,   117,    17,   786
  276. 2850 DATA   198,     6,   222,     8,     0,   255,     6,    82,   777
  277. 2860 DATA     1,   128,    62,   222,     8,     0,   117,   207,   745
  278. 2870 DATA   195,    60,    59,   117,   244,   254,     6,   222,  1157
  279. 2880 DATA     8,   235,   196,   136,     7,    67,   195,     0,   844
  280.